home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Programming
/
DiceSource
/
lib
/
alib
/
rexx.a
< prev
next >
Wrap
Text File
|
1994-02-01
|
813b
|
45 lines
; autoinit if you ever reference REXXSYSLIB.LIBRARY
;
; (c)Copyright 1992, Matthew Dillon, All Rights Reserved
;
; can't use pc-relative between different code sections
; and cannot put string in autoinit section!
;
; NOTE: If DICE is unable to open this library
; the autoinit is NOT aborted!
xdef _RexxSysBase
xref __AutoFail0
_LVOOpenLibrary equ -552
_LVOCloseLibrary equ -414
section autoinit0,code
moveq.l #0,D0
lea rexname(pc),A1
jsr _LVOOpenLibrary(A6)
move.l D0,_RexxSysBase(A4)
;;;beq __AutoFail0
bra i10
rexname dc.b 'rexxsyslib.library',0
ds.w 0
i10
section autoexit0,code
move.l _RexxSysBase(A4),D0
beq l10
move.l D0,A1
jsr _LVOCloseLibrary(A6)
l10
section libbss,bss
_RexxSysBase ds.l 1
END